$dialog save filter "MIF файлы|*.mif|Shape файлы|*.shp|Все файлы|*.*" title "Сохранить векторный файл" ext "mif"
!path = path

!ifdef path
$draw save file !path
!delete path
!endif
